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ccm 
lem Ea | 
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**F 1LE**1D**LOADDRIV 
LL 000000 AAAAAA DDDDDDDD DODODDDD RRRRRRRR III] VV VV 
LL 000000 AAAAAA DDDDDDDD DODDDDDD RRRRRRRR III] VV VV 
LL 00 00 AA AA DD DD DD DD RR RR I] VV VV 
LL 00 OO AA AA DD DD dD DD RR RR I] VV VV 
LL 00 00 AA DD DD DD D RR RR I] VV VV 
LL 00 00 AA AA DD DD ODD DD RR RR I] VV VV 
LL 00 OO AA AA DD DD 0D DD RRRRRRRR I] VV VV 
LL 00 00 AA AA DD DD DD DD RRRRRRRR I] VV vy 
LL 00 00 AAAAAAAAAA DD DD DD DD RR RR I] VV vv 
LL 00 00 AAAAAAAAAA DD DD DD DD RR RR I] VV VV 
LL 00 00 AA AA DD DD DD DD RR RR I] VV VV eeee 
LL 00 00 AA AA DD DD DD DD RR RR I] VV VW ceee 
LLLLLLLLLL 000000 AA AA DDDDDDDD DODDDDDD RR RR III! VV eeee 
LLLLLLLLLL 000000 AA AA DDDDDDDD DDDDDDDD RR RR HII! VV eoee 
LL III] SSSSSSSS 
LL IH1111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I! SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL HII] SSSSSSSS 
LLELLLLLLLL M1111 SSSSSSSS 


N1 
= LOAD A DEVICE DRIVER . 15-SEP-1984 23:53:35 VAX/VMS Macro Vv04-00 Page 0 


DECLARATIONS 
LOAD DRIVER 
LOADER = LOAD THE DRIVER 
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vo4-000 27$b= 1984 33: 204:29 {poor sre LOADDRIV.MAR; 1 wots (1) 
- TITLE irae - LOAD A DEVICE DRIVER 
-IDENT ‘v94=000' 


| senmonrereensnntnesneonecehesenenenetereneeeecesenbeceeoesnnceconessesoneenn 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
thee ty beep MAYNARD. MASSACHUSETTS. 


30 « 
3* * 
3* * 
3° * 
3* * 
7* * 
7* * 
7* * 
7* 0 * 
3* SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3* TRANSFERRED. * 
3* ® 
hd He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
3* ® 
3* = 
3* ® 
3* ® 
7* * 
2* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; FACILITY: DEVICE DRIVER LOADER 
ABSTRACT: LOAD A DRIVER 
0 ENVIRONMENT: USER MODE PRIVILEGED CODE 
AUTHOR: LEN KAWELL, CREATION DATE:8-JUN-78 
MODIFICATION HISTORY: 
v03-005 wHMNOOOT Bill Matthews 01-Feb-1984 
: Set AP correctly before calling IOGENSCNTRL_INI. 
: v03-004 BLS0223 Benn Schreiber 13-May-1983 
3 $ Fix truncation error 
000 : v03-003 MSH0003 Maryann Hinden 15-Feb-1983 
it : Check earlier for nounload bit set in DPT. 
000 v03-002 msH0002 Maryann Hinden 09-Feb-1983 
000 3 Change references to IOGENSGL_DPT to ACFSGL_DPT. 
sit : Move SGNSGL_DDB, et. al., to ACFSGL_xxx. 
000 : v03-001 MSHO001 Maryann Hinden 07-Jan-1982 
st 3 If zero UCB pointer "Ta DDB, disallow reload. 


” : 
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ret DECLARATIONS Fa ee $3:32 38 Hoots sRe LOADDRIV.MAR;1 . 9) 
209 28 ~SBTTL DECLARATIONS 
800 80 
$09 8) ; INCLUDE FILES 
0900 86 ; 
000 64 
0000 65 ; 
0000 66 ; MACROS: 
0000 6/7 3: 
0000 68 
8008 +4 : 
444 oy ; EQUATED SYMBOLS: 
00000004 444 i FILE_NAME = 4 ;OFFSET TO FILE NAME ARG 
0000 74 SIHDDEF sDEFINE IMAGE HEADER OFFSETS 
0000 75 SIHPDEF sDEFINE IMAGE HEADER OFFSETS 
0000 76 SIHIDEF sDEFINE IMAGE HEADE FSETS 
0000 77 SJPIDEF sDEFINE SYSS$GETJPI VALUES 
0000 78 SDPTDEF :DEFINE DRIVER PROLOGUE TABLE 
0000 79 SDYNDEF sDEFINE DYNAMIC MEMORY TYPES 
0000 80 SDDBDEF sDEFINE DEVICE DATA BLOCK 
0000 81 SUCBDEF sDEFINE UNIT CONTROL BLOCK 
0000 Hf SPRDEF sDEFINE PROCESSOR REGISTERS 
0000 8 SSSDEF sDEFINE SYSTEM MESSAGES 
0000 84 $SYSGMSGDEF sDEFINE SYSGEN MESSAGES 
0000 85 
0000 86 ; 
0000 87 ; OWN STORAGE: 
0000 88 ; 
0000 88 + -PSECT NONPAGED_DATA- rd,wrt,noexe,quad 
0000 91 RET_ADDR: ;MAP RANGE ARRAY RETURNED BY SYS 
00000008 444 38 -BLKL 2 
0008 94 CHANNEL: sLOCATION TO STORE CHANNEL NUMBER 
0000000A 0008 95 -BLKW 1 
QO0A 96 
QO0A 97 LINK_TIME: 
00000012 000A 98 -BLKL 2 sLINK DATE TEMPORARY 
Bots 99 ECO_LEVEL: 
00000016 001 100 ~BLKL ;ECO TEMPORARY 
0016 101 
0016 102 


re 
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~-SBTTL LOAD DRIVER 


FUNCTIONAL DESCRIPTION: 
This routine will load a device driver into the system pool 
and if the same name ériver was already loaded, it will 
Geinitiatize” atuithe, contrat blocks Piste Baek x agen 
; CALLING SEQUENCE: 
CALL IOGENSLOAD(FILE_NAME) 
; INPUT PARAMETERS: 
FILE _NAMECAP) = address of file name counted string 
; IMPLICIT INPUTS: 
NONE 
; OUTPUT PARAMETERS: 
ACFSGL_DPT = ADDR OF NEW DRIVER PROLOGUE TABLE 
; IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
RO = STATUS OF LOAD OPERATION 
SIDE EFFECTS: 


Se Se Ge Se Ge Be Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se See Se Sse SeSe Sete Se 


SDSS DS DS DS OS DS DS DS DS SPA A PAA AAA AAA AAA AAAAAA 


be we ewe we we mw ww lawl awl wo loo lolo lola lololololololololalalalololololololololololola a!) 
DOCOOO a8 a8 a 8 38 8 ee 


SOOOOOOOOOSOSOOOSOSOSOSOSSOOSOOSOSOSOSOOSSSOSOSOOSOSOOSOSOOOOOOOOOOOCOOOOOOOOOO Vg 
Batumi miastiataiaduiadadimAdaadiadadad dada adad ada ad Dada ad ead ad abad ab adadad ab ad ab ad ad adadad aad add ad aden 


ONT UU BS EB ES BWW WWIII nnonononononnofnohnd 2 2 OOOO 
CODWNANEWR CO OONAULS WN 2 ODONAUEWN 2 OOODNAUEWN OOD NOU EWR OOO NOUnE 


NONE 
0000 He -PSECT NONPAGED_CODE rd,nowrt,exe,long 
0 IOGENSLOADDRIV: : 
003C 0 ~ WORD “M<R2,R3,R4,R5> 
50 04 0 $ MOVL FILE_NAME (AP) ,RO sGET ADDR OF FILE — STRING 
53 0008' tf E 0006 MOVAW W*CHANN NEL RS :GET ADDR TO STORE CHANNEL # 
54  O000°CF 7€ 908 MOVAG W*RET ADDR,R [GET ADDR OF SETURN ADDRESS. A ARRAY 
00000000'GF 16 001 JSB A emer SREAD IN DRIVER 
03 50 €8 0016 BLBS SBRANCH IF SUCCESS 
00c6 = 31 o19 BRW [BR IF ERROR 
01¢ : CHECK IF DRIVER IS ASSEMBLED AND LINKED WITH CORRECT VERSION OF VMS, 
bie 3; AFTER VALIDATING DPT 
64 pO O01C $$ MOVL  (R4),RS 7GET ADDR OF IMAGE HEADER 
50° 10 AS 9A OO1F MOVZBL IHD$6_HDRBLKCNT(RS),RO :GET IMAGE HEADER BLOCK COUNT 
50 00000200 BF C4 0023 MULL  #512,R0 :COMPUTE HEADER BYTE COUNT 


| 
| 
| 
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‘Word B00 LOAD DRIVER Fa ets 33:32:38 Yeoors sReILO LOADDRIV.MAR; 1 are 6) 
66 50 C A 161 ADDL _—RO, (R4) :SET ADDRESS OF FIRST IMAGE SECTION (DPT) 
| 5164 58 a0 p 16 MOVL  (R4),R1 3GET ADDRESS OF DRIVER PROLOGUE TABLE 
1E OA Al 91 0030 164 CMPB ss OPTSB_TYPE(R1),#DYNSC_DPT ;1$ IT A VALID DRIVER PROLOGUE 
08 13 0034 165 BEQLU 5$ :BR IF YES 
007¢8032 8F DD 0936 166 PUSHL #SYSG$_INVDPT tSET INVALID DPT ERROR 
nS Hi 00 ¢ 167 BRB 40$ :BRANCH TO EXIT 
10 Al 18 81 O03 169 5$: CMPW = #DPTSW_VERSION,DPTS$W_INITTAB(R1) ;DOES DPT HAVE A VERSION NUMBER? 
1B ONE 004 170 BGEQU 10$ :BR IF NO = DEFINITELY NOT RIGHT 
06 18 Al Bi 0044 171 CMPW = DPT$W_VERSION(R1) ,ADPTSC_ VERSION ;DOES VERSION MATCH OUR VERSION? 
15 12 0048 1% BNEQ 108 R IF NO = NOT ASSEMBLED WITH RIGHT SYS 
02 a5 28 Bi 004A 17 CMPW © #IHDSL_SYSVER, IHDS$W_ ACTIVOFF.(RS) :DOES HEADER HAVE A SYS VERSION? 
OF 1€ OO4E 174 BGEQU § 10$ DEFINITELY NOT RIGHT 
50 28 A5 09 0050 175 MOVL JHDSL_SYSVER(RS) ,RO [GET SySTER VERSION OF IMAGE 
28 43613 «0054 «(176 BEQL 0$ [BR IF NONE = NOT LINKED WITH EXEC!? 
00000000'8F 50 01 0056 177 CMPL RO, #SYS$K_VERSION :DOES IMAGE VERSION MATCH OUR VERSION? 
iF 13 005D 178 BEQL © 30$ :BR IF YES 
04 AC DD OO5F 179 10S: PUSHL FILE_NAME (AP) 
01 DD 0062 180 PUSHL #1 
007CA023 BF DD 0064 181 PUSHL #SYSGS_ DRIVENAM 
7E 0&4 006A 18¢ CLRL. = = (SP) 
OO7C806A BF DD 006C 18 PUSHL #SYSGS SYSVERDIF :SET FAILURE STATUS 
00000000'GF 05 FB 0072 184 CALLS #3. G*LIBSSIGNA ; SIGNAL 
7E 02 CE 0079 185 MNEGL =(SP) : SET "ERROR ALREADY SIGNALED"’ 
34 11 OO7C 186 BRB ‘ $ EXIT 
OO7E 187 ; 
QO7E 188 ; DRIVER IS OK, FILL IN DPT FIELDS 
OO7E 189 
007E 190 $08: 
50 06A5 3C OO7E 191 MOVZ2WL IHDS$W_IMGIDOFF(RS),RO  ; GET IMAGE IHI OFFSET 
0 55 CO 008@ 198 ADDL2 R5,RO™ : CALCULATE ADDRESS OF IHI 
QOO0000A'EF 38 AO 7D 0085 19 MOVG IHI$Q_LINKTIME(RO), - 
44 133 LINK_TIME ; STORE IN TEMPORARY 
00000012"EF 04 O08D 196 CLRL €CO_LEVEL : ASSUME NO PATCHES 
50 08 AS 3C 0093 197 MOVZWL THD PATCHOFF(RS),RO : GET IMAGE IHP OFFSET 
13 0097 198 BEQL 5$ + BRANCH IF NONE 
50 55 cG 0099 199 ADDL2 R5,RO : CALCULATE ADDRESS OF IHP 
00000012"EF 60 00 d09¢ 200 MOVL THPSL ECO1(RO), 
BOA 30 LEVEL : STORE IN TEMPORARY 
$4 08 : CHANGE MODE TO ene TO LOAD 
i os $5$ 
OAs 6 SCHKRNL _S_W*LOADER, (AP) ; 
50 oD 008 oF PUSHL “RO :SAVE STATUS 
008 09 ; DELETE THE INPUT FILE VIRTUAL ADDRESSES, DEASSIGN THE CHANNEL, AND RETURN 
64 55 00 00B i; ios: R5,(R4) RESET ADDRESS RANGE TO INCLUDE HEADER 
008 1 SDELTVA. S (R4) > DEL FTE THE CREATED ADDRESS RANGE 
0350 €8 d0ce 1 BLBS ~RO,50$ ‘BR IF SUCCESS 
6€ 50 00 00C 14 OVL  R0,(SP) SSAVE ERROR STATUS 
¢ 15 50$ SDASSGN_S (R3) :DEASSIGN THE CHANNEL 
03 50 €8 00D 16 LBS) “RO, 60$ :BR IF SUCCESS 
6— 50 00 00D 17 MOVL  RO.(SP) [SAVE ERROR STATUS 
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v04-000 LOAD DRIVE 4-SEP=1984 23:04:29 ([BOOTS.SRCILOADDRIV.MAR; 1 (1) 
O08 519: £08: 
it 80 CHECK TO SEE IF SCS CODE NEEDS TO BE LOADED AND LOAD IT IF NECESSARY. 
QOOOOO00"EF 00 FB 00D8 $66 CALLS #0,BOO$SCSLOADER CALL TO LOAD 
aad $67 3 (ALWAYS RETURNS SUCCESS) 
50 8EDO OODF 225 65$: POPL RO sRESTORE THE STATUS 
QOE ss§ 
OOE ? 708: 
04 OOE 556 RET 
OOE 9 


| 
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| 
| 
| 
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as ~SBTTL LOADER = LOAD THE DRIVER 


LOADER = LOAD THE NEW DRIVER 


Kernel mode routine to actually load the driver, initialize 
any associated control blocks, and unload a previous driver. 


INPUTS: 


RET ait ADDRESS OF HAPPED DRIVER SECTION 
LINR_TIME = QUADWORD LINK TIME FROM IMAGE HEADER 
ECO_ cever 2 CONGWORD ECO LEVEL FROM IMAGE HEADER 


OUTPUTS: 


RO = STATUS OF OPERATION 
ACFSGL_DPT = ADDRESS OF NEW DRIVER PROLOGUE TABLE 


Sl tle teh ah tak, tet ek ee ee Wah a oh oh ah ah ah mb eh nd 


E 
T 
4 
0 g 
0 9 
0 0 
anes 34g 
0 4 
6 4 
0 : 
0 g 
0 9 
0 250 ;: 
0 251 LOADER: 
OFFC 0 338 .WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
0 934 ? MOVE DRIVER TO NON-PAGED POOL 
59 O000'CF 00 9 336 , MOVL W*RET_ADDR,R9 :GET ADDR OF DRIVER PROLOGUE 
51 08 Ad 3C O $34 5$: MOVZWL DPTS$W_SIZE(R9),R1 :GET SIZE OF DPT 
00000000'GF 16 0 259 JSB Gre XE SALONONPAGED SALLOCATE NON-PAGED MEMORY 
Es 0 260 BLBS 86 $ :BR IF SU 
50 0124 BF . 261 MOVZWL 738%. INSFMEM,RO SET INSUFFICIENT MEMORY ERROR 
04 0 36¢ RET +4. EXIT 
01 DD OOFD 264 108: PUSHL #SS$_NORMAL : ASSUME SUCCESS 
SA 51 7D OOFF 265 MOVa *SAVE SIZE AND ADDR OF BUFFER 
68 69 OB A9 28 0102 266 MOVC  DPT$W_SIZE(R9),(R9), (R119 MOVE DRIVER TO THE BUFFER 
08 AB OSA «BO 0107 «267 MOVW R10, DPT Su. SIZE (R11) :SET ACTUAL SIZE OF BUFFER 
2C AB OOO0000A"EF 7D 0108 268 MOVO LINK TIME; 
011 269 DPT$O LINKTIME (R11) : SET LINK TIME 
34 AB 00000012"EF DO 011 270 MOVL ECOL 
gi 371 DPTSL ECOLEVEL (R11) : COPY FIRST LONGWORD OF ECO UPDATES 
O11 73 : SCAN DPT LIST TO CHECK IF DRIVER CURRENTLY LOADED 
FEE2" 30 a 75° BSBW I1OGENSLOCK_10DB ;LOCK THE 1/0 DATABASE 
59 20 AB 9E O11E 276 MOVAB DPTst _NAMETR11) ,R9 [GET ADDR OF DRIVER NAME 
58 89 9A O1ge 77 MOVZBL (9) “R [GET SIZE OF DRIVER NAME 
5A  00000000'GF 44 1 78 MOVA Gi doc$o_ DPTLIST.R10 _ :GET ADDR OF DPT LIST 
54 SA OD ' 19 po MOVL [SAVE IT 
5A 6A 00 012F 1 "s MOVL «=—s«éDPTSL_FLINK(R10),R10 | :GET ADDR OF NEXT DPT 
54 «SA OsC« : ’ CMPL R10,R% SEND OF LIST? 
03 12 «01 BNEG 308° :BR IF NOT 
9145 1 0137 i BRW LINK SELSE NOT LOADED = JUST ADD TO LIST 
51 20 AA 9E 013A 5 30$:  MOVAB bPrst. NAME (R10) R1 [GET ADDR OF DRIVER 
50 $1 9A 013 6 MOVZBL (RI :GET SIZE OF DRIVER NAME 
69 58 00 61 0 2D 0141 MPC ROLURID. #0,R8, (RO) :COMPARE DRIVER NAME 


| 
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v04=00 LOADER = LOAD THE DRIVER 4-SEP=19 :04:29 [BOOTS.SRCJLOADDRIV.MAR; 1 (1) 
FS 12 0147 88 BNEQ 208 IF NOT EQUAL | 
SA OD AA f 149 8 BBS #DPTSV_NOUNLOAD , DPTS$B_ Figs cho) VNOUNLOAD -BR IF NOT TO BE UNLOADED 
AA 14 0 TSTB  DPT$B_REFC(R10) § CONNECTED TO IT? 
03 «(1 12 91 BNEQ BuSY_CHECK ‘BR "Pe 
| 010c~=Os 31 133 a BRW LOAD SELSE = JUST UNLOAD IT 
| 156 6.294 SCAN DEVICE DATABASE TO CHECK THAT ANY DEVICES THAT WILL USE 
0136 99 ; THE NEW DRIVER ARE NOT BUSY 
156 3 BUSY_CHECK: 
156 ©6298 DSBINT ;DISABLE INTERRUP 
56 00000000'GF DE 136 99 MOVAL G*IOCSGL_DEVLIST,R6 ‘GET ADDRESS OF DEVICE LISTHEAD 
56 66 DO 016 00 10$: § MOVL DoBsL LINK (R6) RO :GET ADDR OF NEXT DD 
2A «13 «0166~— 301 BEQL NLOAB_CHK [BR IF NONE = NONE ARE BUSY 
51 2606 GE 0168 0¢ MOVAB DBS Y BRVNAME (R6) , R1 'GET ADDR OF DRIVER NAME 
50. 81 9A 016C 30 MOVZBL [GET SIZE OF DRIVER NAME 
69 58 00 61 30 20 O16F 04 CHP RO (Ri), #0,R8,(R9) :DRIVER NAMES MATCH? 
57 04 a6 00 O17 30¢ MOVL DOBSL_ UCB(R6) ,R7 :GET ADDR OF FIRST UCB 
08 64 A7_ 08 €0 017D 3% 20$: BBS #UCBSV_BSY,UCB$W_STS(R7). ‘50s BR IF DRIVER BUSY 
57 30 a7 00 0182 309 MOVL UCBSL_ CINK(R7) ,R? :GET ADDR OF NEXT UCB 
F317 0188 311 BRB 20$ ZCONTINUE CHECKING UCB'S 
56 02C4 BF 3C 018A 318 30$: MOVZWL ¥#SS$_DEVACTIVE,R6 SET ERROR STATUS 
O0A2 31 Hd 13 BRW ERROR Seoelhit 
0198 316 | : CHECK IF CURRENT DRIVER CAN BE UNLOADED 
$135 318 UNLOAD. CHK: 
50 14 AA BO 0192 319 MOVW § DPTS$W_UNLOAD(R10),RO GET ADDR OF UNLOAD ACTION ROUTINE 
1A 13 «0196 = 320 BEQL REINIT ‘BR If NO 
50 SA CO 0198 321 ADDL  _R10,R0 ‘GET ADDR OF UNLOAD ROUTINE 
1FCO 8F BB 0198 322 PUSHR #*M<R6,R7,R8,R9,R10,R11,AP> SAVE REGISTERS 
16 O19F 32 JSB (RO) sCALL THE UNLOAD ROUTINE 
1FCO BF «BA O1A1 324 POPR WHERE R7. R8,R9,R10,R11, Ap> “RESTORE REGISTERS 
0A 50 £8 O1AS 33 BLBS _—RO,R R IF OK TO UNLOAD 
O1A8 27 NOUNLOAD: 
56 007C8012 8F DO O1A8 328 MOVL § #SYSG$_NOUNLOAD,R6 sSET ERROR STATUS 
0082 «(31 OIAF $9 BRW ERROR +e. EXIT 
oie 31 ; RE-SCAN DDB LIST TO FI ND DDB'S CONNECTED TO CURRENT DRIVER 
O18 gi : AND RE-INIT THE ASSOCIATED CONTROL BLOCKS 
00000000°EF 04 is 3 heat: CLRL  ACFSGL_DDB :CLEAR ADDRESS OF DDB 
56 00000000'GF DE 01B 3 MOVAL G*IOC$GL_DEVLIST,R6 [GET ADDRESS OF DEVICE LIST 
56 66 DO 01BF 7 10$:  MOVL DOBSL_LIAK (RG) .Ré [GET ADDR OF NEXT DDB 
0 12 01C2 8 BNEQ 15$ [BR IF ANOT 
0082 31 01¢4 BRW UNLOAD_ENBINT :BRANCH IF NONE 
51 24 A6 9E O1C7 340 15$:  MOVAB DDB$T_ORVNAME(R6),R1 :GET ADDR OF DRIVER NAME 
50 gi 9A 01(B 341 MOVZBL (R1)+7RO :GET SIZE OF DRIVER NAME 
69 58 00 61 50 2D OICE 4g CMPCS RO, (R1),#0,R8, (RO) [DRIVER NAMES MATCH? 
—9 12 1D4 43 BNEQ 108 [BR IF NO 
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QOOO'cF 53 5B C3 
54 = 5A 0 
Q00000000'GF 16 
50. =65BoéO 
00000000°GF 16 
FDBD' 30 
50 56) «60 
BE D5 
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0000° CF rE 
10 
5B. 0000°CF 
00000000 ° GF 
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raat 9 33:32:38 BOOTS. SRCJLOADDRIV.MAR; 1 - ad 
SST SEbrRBE ns SEE ABBUFE 8 | 
p08 " , SIF ZERO POINTER, DISALLOW RELOAD | 
DPT$B_REFC(R10) ZDEC REF COUNT OF CURRENT DRIVER 
DPB REFC(R11) z ANC REF COUNT OF NEW DRIVER | 
GrIGCSREINITORV TRE-INIT DRIVER DATABASE 
RO, 30$ ‘BR IF ERROR 
obs. BT tRS :SET DDT ADDRESS 
UCBSLILINK(RS) .R5 GET ADDR OF NEXT UCB 
P SSAVE AP 
BOOSAL_ACF AP :LOAD bait "PaeNcont Rect CONTROL BLOCK ADDRESS 
LOGENSCNTRL_ INI eEston We CONTR 


108 
#SSGS_NOUNLOAD ,R6 


gare. INVDPTINI ,R6 


CHECK RNEXT DDB 
SET ERROR STATUS 
XIT 


+74 ee STATUS 
EMENT INIT TABLE POINTER 


ECR 
R11, Ree oW*ACFSGL_DPT :savé> TABLE OFFSET FOR peeve! NG 


G*1OCSREINITDRV 
NEW DRIVER = UNLOAD IT 


$DEANONPAGED 
SUNLK_ 1008 


UNLOAD CURRENTLY LOADED DRIVER 
ion eye 
ENBINT 


: See if there is a driver to relocate 


My te 
UNLOAD 


R 
W°ACFS$GL_DDB,R11 
G*1OCSRECOC, oT 
DPTS$B_REFC(R10) 
LINK SPT 
(R107,R10 
G*EXESINIT,RO 


SET ADDR OF CURRENT 
TRY TO UNDO ANY DAMAGE 


ge INTERRUPTS 

;SET ADDR OF DRIVER 
;DEALLOCATE ITS STORAGE 
SUNLOCK THE sf9 DATABASE 
SET ERROR STATUS 

;THROW AWAY SUCCESS STATUS 


RE-ENABLE INTERRUPTS 


:WAS AN ADDRESS SET? 

;BRANCH IF NO 

7 SAVE 

7SET ADDRESS OF DDB 
;RELOCATE galver DDT and FDT 
RESTORE DPT 

s ANY REFERENCES LEFT? 


REMOVE "OPT FROM LIST 
:GET ADDR OF TOP OF EXEC 


ees? 13 
LOADBRIV - LOAD A DEVICE DRIVER 13-560=1 388 33:3 53: +33 AX/VMS Macro v04-00 
v04 LOADER = LOAD THE DRIVER 46-SEP-1984 23:04:29 ([BOOTS.SRCJLOADDRIV.MAR;1 
50 SA pI so 3 CMPL R10,R0 DRIVER iN EXEC? 
9 F 74 & BLSSU LIWK ‘* 3BR IF YES 
50 A 0 £6 404 MOVL R10,R 7SET ADDR OF DPT 
00000000 GF 1 te : 5 JSB G*EKESDEANONPAGED sDEALLOCATE BUFFER 
oF 407 3; LINK NEW DRIVER INTO DPT LIST 
7F 409 LINK_DPT: 
00000000 ' GF $8 oF 7F = 410 INSQUE (R11),G*IOCS$GL_DPTLIST z INSERT NEW DRIVER. INTO DPT LIST 
FD77" 86 411 BSBW 1OGEN$UNLK_10D8 s;UNLOCK THE I/O DAT 
OO0OO'CF 5B 00 8&9 ai MOVL R11,W WACSCL _DPT SAVE ADDR OF PROLOGUE TABLE 
50 8ED0 8 BE 4] POPL RO [SET STATUS 
04 91 414 RET 
T3544 415 
029 416 .END 


LOADDRIV = LOAD A DEVICE DRIVER 19-60-1986 33: 753: +33 AX/VMS Macro v04-00 Page 1 

Symbol table 46-SEP-1984 23:04: BOOTS. SRCJLOADDRIV.MAR; 1 ( 
CFSGL_DDB serene B SYSSCMKRNL eeenenee GX ; 

ACE Scr “DPT eeeenere =X SYSSDASSGN eeeneeee GX 
BOOSAL ACF eeeeeeee =X SYSSDELTVA eeeeenee GX ; 
BOOSSCSLOADER eeeerere =X SYS$K_VERSION teeeenee 
BUSY_ CHECK $0003 a 0 SYSGS_DRIVENAM 2 orc anes 

CHANNEL 0000008 R 02 SYSG$_INVDPT = bree 

DBSL_DD = 0000 it SV SGS_INVDPTINI = 007C800A 
DDBSL_LINK = 00000000 SYSG$_NOUNLOA = as 4E 

DDBSL_UC = 00000004 SYSG$_ Cy SVERDIF = 007C806A 
DDBST_DRVNAME = 00000024 UCBS$L_DOT = 00000088 
DPTSB_FLAGS = 0000000D ucBst LINK = 00000030 
DPT$B_REFC = F008 0008 UCBSV-BSY = 00000008 
DPTSB_TYP = QO00000A UCB$W-STS = 00000064 
DPTSC_VERSION = 00000004 UNLOAB 00000262 R 03 
DPTSL_ECOLEVEL = 00000034 UNLOAD_CHK 00000192 R 03 
DPTSL_FLINK = 00000000 UNLOAD" ~ENBINT 00000249 R 03 
DPTSQ_LINKTIME = 0000002C 
DPTST_NAME = 00000020 
DPTSV_NOUNLOAD = 00000002 
DPTSW_INITTAB = 90000010 
DPT$W_SIZE = 00000008 
DPTS$W_UNLOAD = 00000014 
DPTSW_VERSION = 00000018 
DYNSC_DP = QOOO001E 
ECO_LEVEL 00000012 R Oe 

s 00000234 R 0 

EXESALONONPAGED tereeeee KX 03 
EXESDEANONPAGED eeneeeee = X 03 
Tar NIT eeeeeeee =X = 05 

FILE NAME = 00000004 

IMDS. HDRBLKCNT = 00000010 

IHD$L_SYSVER = 00000028 

IHDSW_ACTIVOFF = 00000002 

IHDSW_IMGIDOFF = 00000006 

IHDSW_PATCHOFF = 00000008 

IHI1SQ_LINKTIME = 00000038 

IH Ecol = 00000000 

10C$GC_DEVLIST eeeeeeee =X 03 

IOC$GL-DPTLIST teneeere§ XK 03 

IOCSREINIT eeereeee§ Xx 8 03 

IOCSRELOC_DDT eeeeeeee XX 03 

IOGENSCNTRL_INI eeeeeteer =X 8603 

IOGENSLOADDRIV 00000000 RG 03 

IOGENSLOCK_10DB tererere = 6X 3 

IOGENSREADBRIV eererere x 3 

IOGENSUNLK_10DB tereereer = X 03 
LIBSSIGNAL eererere = X 03 
LINK_DP 0000027F R 03 
LINK TIME 0000000A R O¢ 
LOADER O000000E3 R 0 
NOUNL 00001A8 R 03 
PRS$_IPL = 0000001 
REIAIT aad R 03 

RET_ADDR 44 R 02 

SS$_DEVACTIVE s C4 

SS$_INSFMEM = 900124 

SS$_NORMAL = 00000001 


-o 


| L 13 
LOADDRIV = LOAD A DEVICE DRIVER iF ok i ad 9 $3:32'33 pales Macro v04-00 Page 11 
Psect synopsis 46-SEP-1984 25:04:29 ([BOOTS.SRCIJLOADDRIV.MAR;1 (1) 


$oeesneweanezncac= + 


! Psect synopsis ! 


doen toeceocan tenn } 


PSECT name Allocation PSECT No. Attributes 
° ° 00000000 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 < 3 01 ¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
NONPAGED_DATA 00000016 g ») 86 ( §- NOPIC USR CON REL LCL NOSHR NOEXE' R&D WRT NOVEC QUAD 
NONPAGED_ CODE 00000292 ( 658.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
-ewrm ann meena erase eeeweeroce + 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 08 8000-08 0) + 00:00 33 
Command processing 122 00:00:00.6 abe Set oe 
Pass 361 obs Se BT 00:00:25.02 
Symbol table sort 0 00:00:01.9 00:00:04.39 
Pass 2 85 bs SO 23 00:00:04.47 
Symbol table output 10 00:00:00.09 00:00:00.49 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 612 00:00:17.07 00:00:37.08 


The working set Limit was 1350 pages. 

69201 bytes_(1356 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1325 non-local and 22 local symbols. 
416 source Lines were read in Pass 1, producing 17 object records in Pass 2. 

24 pages of virtual memory were used to define 23 macros. 


$owwowowwo ooo ecco coocoone + 
: Macro Library statistics : 
Macro Library name Macros defined 
_$255$DUA28: Bont s .8s 7e0oTs L851 0 
_5255$DUA28: (SYS.OBJJLIB.MLB; 10 
$255SDUA28: (SYSLIBISTARLET.MLB;2 10 
TOTALS (all Libraries) 20 


1441 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:LOADDRIV/OBJ=OBJ$:LOADDRIV MSRC$:LOADDRIV/UPDATE=(ENH$:LOADDRIV) +EXECML$/L1B+L1B$:BOOTS .MLB/LIB 
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